home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_A.d64 / klang + 3.stimme (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  50 lines
  1. 100 rem--------------------------------
  2. 110 rem klangeffekte mit
  3. 120 rem dynamischer steuerung
  4. 125 rem durch stimme 3
  5. 130 rem--------------------------------
  6. 140 s=54272
  7. 150 read a,d,su,r,c,p,f,g,n,m
  8. 160 poke s+5 ,16*a +d
  9. 170 poke s+6 ,16*su+r
  10. 180 poke s+2 ,p and 255
  11. 190 poke s+3 ,p/256
  12. 200 poke s+23,0     :rem fr
  13. 210 poke s+24,128+15:rem ml (s3 aus)
  14. 220 read a3,d3,s3,r3,c3,p3,f3,q
  15. 230 hi=int(f3/256):lo=f3-256*hi
  16. 240 poke s+14,lo
  17. 250 poke s+15,hi
  18. 260 poke s+16,p3 and 255
  19. 270 poke s+17,p3/256
  20. 280 poke s+19,16*a3+d3
  21. 290 poke s+20,16*s3+r3
  22. 300 q=s+q
  23. 310 f=f/256
  24. 320 get a$:if a$="" then 320
  25. 330 for i=1 to m
  26. 340 : poke s+4 ,c or 1
  27. 350 : poke s+18,c3 or 1
  28. 360 : for j=1 to n
  29. 370 :   poke s+1,f*(1+peek(q)/g)
  30. 380 : next j
  31. 390 : poke s+4 ,c
  32. 400 : poke s+18,c3
  33. 410 next i
  34. 420 goto 320
  35. 500 rem--------------------------------
  36. 510 rem parameter stimme 1
  37. 520 data 0 , 8, 0, 8:rem a d su r
  38. 530 data 32         :rem control-byte c
  39. 540 data 2048       :rem pulsweite p
  40. 550 data 40000      :rem frequenz f
  41. 560 data 500        :rem faktor g
  42. 570 data 8          :rem anzahl n
  43. 580 data 10         :rem anzahl m
  44. 600 rem parameter stimme 3
  45. 610 data  0, 8, 0, 0:rem a3 d3 s3 r3
  46. 620 data 16         :rem control c3
  47. 630 data 2048       :rem pulsweite p3
  48. 640 data 10         :rem frequenz f3
  49. 650 data 28         :rem mod.-quelle q
  50.